home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr13 / heartrat.zip / HEARTRAT.PAS < prev   
Pascal/Delphi Source File  |  1993-05-05  |  2KB  |  62 lines
  1. PROGRAM Heart_Rate;
  2.  
  3. VAR
  4.    min_rate, max_rate, age, resting_rate : REAL;
  5.  
  6. PROCEDURE Rate_1 (VAR min_rate: REAL; VAR max_rate: REAL;
  7.                   age, resting_rate : REAL);
  8. { Based on calculations found on page 13 of Bicycling Magazine's
  9.   FITNESS THROUGH CYCLING (c) 1985 Rodale Press Inc. }
  10. BEGIN
  11.    min_rate := ((220.0 - age) - resting_rate) * 0.6 + resting_rate;
  12.    max_rate := ((220.0 - age) - resting_rate) * 0.8 + resting_rate;
  13. END ; { Rate_1 }
  14.  
  15. PROCEDURE Rate_2 (VAR min_rate: REAL; VAR max_rate: REAL;
  16.                   age : REAL);
  17. { Based on calculations found on page 6 of SPORTSPERFORMANCE
  18.   CYCLING ENDURANCE AND SPEED (c) 1987 by Michael Shermer }
  19. BEGIN
  20.    min_rate := (220.0 - age) * 0.6;
  21.    max_rate := (220.0 - age) * 0.8;
  22. END ; { Rate_2 }
  23.  
  24. PROCEDURE Rate_3 (VAR min_rate: REAL;
  25.                   age : REAL);
  26. { Based on calculations found on page 168 of
  27.   THE PENGUIN BICYCLE HANDBOOK (c) 1983 Rob Van Der Plas }
  28. BEGIN
  29.    min_rate := 180.0 - age;
  30. END ; { Rate_3 }
  31.  
  32. BEGIN
  33.    ClrScr;
  34.    writeln(' ':23, 'Your Training Heart Rate');
  35.    writeln(' ':27, 'by Howard Gerber');
  36.    writeln(' ':23, 'Two Wheelers Opus 106/88');
  37.    writeln(' ':28, '713-682-6508');
  38.    writeln; writeln;
  39.    LowVideo; write(' ':16, 'Age: '); HighVideo; read( age );
  40.    LowVideo; write('   Resting Pulse Rate: ');
  41.    HighVideo; readln( resting_rate);
  42.    writeln; writeln;
  43.    LowVideo;
  44.    writeln(' ':13, 'Reference                Minimum Rate   Maximum Rate');
  45.    HighVideo;
  46.  
  47.    writeln;
  48.    Rate_1( min_rate, max_rate, age, resting_rate);
  49.    write(' ':5, 'Fitness Through Cycling', ' ':5);
  50.    writeln(min_rate:13:0, max_rate:14:0);
  51.  
  52.    writeln;
  53.    Rate_2( min_rate, max_rate, age);
  54.    write(' ':5, 'Cycling Endurance and Speed ');
  55.    writeln(min_rate:13:0, max_rate:14:0);
  56.  
  57.    writeln;
  58.    Rate_3( min_rate, age );
  59.    write(' ':5, 'The Penguin Bicycle Handbook');
  60.    writeln(min_rate:13:0);
  61. END.
  62.